Program Tp;
uses
    Dos,crt;
    
Const
    MAX_PEDIDOS = 200;

Type
    {$I DataTypes.pas}

    {$I FileManagment.pas}

    {$I ManejoPedidos.pas}
     
    {$I ManejoReparaciones.pas}
    
Var
    RepuestoBuscado : Repuesto;    
    RepuestoEncontrado : Repuesto;
    NuevoPedidoReparado : PedidoReparado;
    UnPedido : Pedido;    
Begin

    
    RepuestoBuscado.Codigo := 50120; 
    RepuestoEncontrado := BuscarRepuesto(RepuestoBuscado);
    RepuestoEncontrado.CantidadDisponible := 1;
    NuevoPedidoReparado.RepuestosUtilizados[1] := RepuestoEncontrado;

    {
    ActualizarFileRepuestos(NuevoPedidoReparado);
    
    UnPedido.Numero := 1;
    ActualizarFilePedidos(UnPedido);
    }

    ActualizarCantidadesRepuestos(NuevoPedidoReparado);
    
    Readln;
End.
